home *** CD-ROM | disk | FTP | other *** search
- object GetMailForm: TGetMailForm
- Left = 232
- Top = 139
- BorderIcons = []
- BorderStyle = bsDialog
- Caption = 'Getting Mail'
- ClientHeight = 103
- ClientWidth = 519
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Status: TLabel
- Left = 15
- Top = 6
- Width = 12
- Height = 13
- Caption = '....'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object MessagesLeft: TLabel
- Left = 14
- Top = 72
- Width = 151
- Height = 13
- AutoSize = False
- Caption = ' '
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Subject: TLabel
- Left = 15
- Top = 23
- Width = 12
- Height = 13
- Caption = '....'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object StatusBk: TPanel
- Left = 12
- Top = 44
- Width = 499
- Height = 23
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWhite
- TabOrder = 0
- object StatusBar: TPanel
- Left = 0
- Top = 0
- Width = 0
- Height = 25
- BevelOuter = bvNone
- Color = clBlue
- TabOrder = 0
- end
- end
- object Stop: TButton
- Left = 424
- Top = 73
- Width = 87
- Height = 25
- Caption = 'Stop'
- ModalResult = 2
- TabOrder = 1
- OnClick = StopClick
- end
- object GetMail1: GetMail
- Opt_Delete = False
- Opt_Preview = False
- Opt_Skip = False
- Mail_Action = None
- Mail_Port = 110
- OnMailInfo = GetMail1MailInfo
- OnMailError = GetMail1MailError
- OnDone = GetMail1Done
- OnMessageLoaded = GetMail1MessageLoaded
- OnHeadersLoaded = GetMail1HeadersLoaded
- OnAttachmentGetLocation = GetMail1AttachmentGetLocation
- OnAttachmentStored = GetMail1AttachmentStored
- WinsockStarted = False
- Version = 'GetMail 1.3.13'
- TimeoutConnect = 30
- TimeoutArp = 20
- Left = 212
- Top = 3
- end
- object TMessage: TTable
- DatabaseName = 'VistaMail'
- TableName = 'DBMess.DB'
- TableType = ttParadox
- Left = 168
- Top = 16
- end
- object Qadress: TQuery
- DatabaseName = 'VistaMail'
- Left = 128
- Top = 16
- end
- end
-